# test functions for mydata
# 
# Author: guochun
###############################################################################



test.mydata=function(){
	mydata("phylo_mark_data")
	print(ls())
	lossobjects=any(is.na(match(c("data.ppp","phyd"),ls())))
	checkTrue(!lossobjects,"some object in phylo_mark_data.RData file lost")
	checkTrue(!is.null(marks(data.ppp)),"it is not a maked point pattern")
	checkEquals(as.character(sort(unique(marks(data.ppp)$sp))),paste("sp",1:5,sep=""))
	checkEquals(dim(phyd),c(5,5))
}

